showtop.asp 中国货源网导航程序源码 1 - ASP源码程序

www.gusucode.com > 中国货源网导航程序源码 1 > 中国货源网导航程序源码 1.0/8月11日备份/showtop.asp
    <!--#include file="mdb.asp"-->
<%
id=request.querystring("id")
set rsc=server.createobject("adodb.recordset")
sql="select * from detail where id="&id
set rsc=conn.execute(sql)
id=rsc("id")
url=rsc("url")
title=rsc("title")
memo=rsc("memo")
out=rsc("out")
conn.execute (sql)
rsc.close
set rsc=nothing  
%>
<meta http-equiv=refresh content="8">
<SCRIPT language=javascript>if(top==self)top.location="showurl.asp?id=<%=id%>"</SCRIPT>
<BODY background="" leftMargin=0 topMargin=0 marginwidth="0" marginheight="0" oncontextmenu="window.external.addFavorite('http://www.100-86.com/showurl.asp?id=<%=id%>','【<%=title%>】');self.event.returnValue=false" ondragstart="self.event.returnValue=false">
<link rel="stylesheet" href="css/css1.css">
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="28" background="images/tbg.gif">
<table width="100%"  border="0" cellspacing="0" cellpadding="0" height=28>
<tr>
<td width="572">最后来访:<a href="http://www.100-86.com" target=_blank><img height=12 src="logo/01.gif" width=12 border=0></a>
  <%
set rsDe=server.createobject("adodb.recordset")
sql= "select * from detail Where verity=1 and yl_dayin>0 order by yl_intime desc" 
'response.write sql
rsDe.open sql,conn,1,1
%>
<%
n=1 
While Not rsDe.Eof and n<7
%> <a href='showurl.asp?id=<%=rsDe("id")%>' title=<%=rsDe("yl_10in")%>/<%=rsDe("yl_dayin")%> target='_blank'>
<%if rsDe("yl_dayin")>4 then%>
<font color=#ff00ff>
<%end if%>
<%if rsDe("yl_dayin")>9 then%>
</font><font color=#0000ff>
<%end if%>
<%if rsDe("yl_dayin")>19 then%>
</font><font color=#FF0000>
<%end if%>
<%=rsDe("title")%>
<%if rsDe("yl_dayin")>4 then%>
</font>
<%end if%>
</a>
<%    
rsDe.MoveNext
n=n+1
Wend
rsDe.close
set rsDe=nothing
%></td>
<td width="190"><A HREF="<%=url%>" TARGET="_parent">直访★<%=title%></A><A HREF="http://www.baidu.com/baidu?word=<%=title%>&tn=100-86com_pg" TARGET="_blank">【更多】</A></td>
<td width="64"><A HREF="/" TARGET="_blank"><font color=#008000>返回首页</font></A></td>
<td width="64"><A HREF="login.asp" TARGET="_blank"><font color=#ff0000>新站登陆</font></A></td>
<td width="64"><A HREF="http://www.baidu.com/baidu?word=<%=title%>&tn=gj28com_pg" TARGET="_blank">百度一下</A></td>
<td width="40"><a href="ly" TARGET="_blank">报错</a></td>
</tr></table>
</td></tr></table>